home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 21
/
Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso
/
Aminet
/
comm
/
www
/
IBGoldED.lha
/
IBGoldEd.ibrx
next >
Wrap
Text File
|
1997-07-20
|
2KB
|
67 lines
/* IBGoldEd V1.1 ©1996-97 Roy E Brown <roy@ebrown.demon.co.uk>
$VER: IBGoldED.ibrx V1.1 (20.7.97)
A script for use with IBrowse to pass the active LOCAL file to
GoldED for editing.
Add it to your IBrowse Arexx menu.
*/
Options Results
Options failat 21
Vers="IBGoldEd V1.1 ©1996-97 Roy Brown"
tags="rtez_flags=ezreqf_centertext"
/* Check for rexxreqtools.library */
If ~Show('L','rexxreqtools.library') Then
Do
If ~Exists('Libs:rexxreqtools.library') Then
Do
If Exists('C:RequestChoice') Then
Do
Address Command
'RequestChoice >NIL: "System Information" "IBGoldEd.ibrx Error!*nCannot find required library.*nPlease consult documentation" "Thank You"'
End
Else
Say "IBGoldEd.ibrx Error Cannot find required library. Please consult documentation"
Exit
End
AddLib('rexxreqtools.library',0,-30,0)
End
If ~Show('P','IBROWSE') Then
Do
Call RTEZREQUEST("Ibrowse doesn't appear to be loaded","Oops",Vers,tags)
Exit
End
Address IBROWSE
'QUERY URL' /* Will automatically select the active IBrowse window */
If RESULT='' Then
Do
Call RTEZREQUEST("There is no LOCAL file loaded in IBROWSE","Oops",Vers,tags)
Exit
End
If Left(RESULT,4)~="file" Then
Do
Call RTEZREQUEST("This script will only work on LOCAL files","Oops",Vers,tags)
Exit
End
If Index(RESULT,'localhost')=0 Then
LocalHTML=Substr(RESULT,LastPos('//',RESULT)+2)
Else
LocalHTML=Substr(RESULT,LastPos('//',RESULT)+12)
If ~Show('P','GOLDED.1') Then
Address Command 'Ed 'LocalHTML''
Else
Address GOLDED.1 'OPEN NEW NAME 'LocalHTML''
Exit